home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 2.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / 1.2 / scripts / gimp-labels.scm.z / gimp-labels.scm
Text File  |  2002-07-08  |  7KB  |  161 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; www.gimp.org web labels
  5. ; Copyright (c) 1997 Adrian Likins
  6. ; aklikins@eos.ncsu.edu
  7. ;
  8. ; based on a idea by jtl (Jens  Lautenbacher)
  9. ; and improved by jtl
  10. ;
  11. ; This program is free software; you can redistribute it and/or modify
  12. ; it under the terms of the GNU General Public License as published by
  13. ; the Free Software Foundation; either version 2 of the License, or
  14. ; (at your option) any later version.
  15. ; 
  16. ; This program is distributed in the hope that it will be useful,
  17. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ; GNU General Public License for more details.
  20. ; 
  21. ; You should have received a copy of the GNU General Public License
  22. ; along with this program; if not, write to the Free Software
  23. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24. ;
  25. ;  **NOTE**  This fonts use some very common fonts, that are typically
  26. ;  bitmap fonts on most installations. If you want better quality versions
  27. ;  you need to grab the urw font package form www.gimp.org/fonts.html
  28. ;  and install as indicated. This will replace the some current bitmap fonts
  29. ;  with higher quality vector fonts. This is how the actual www.gimp.org
  30. ;  logos were created.
  31. ;
  32. ; ************************************************************************
  33. ; Changed on Feb 4, 1999 by Piet van Oostrum <piet@cs.uu.nl>
  34. ; For use with GIMP 1.1.
  35. ; All calls to gimp-text-* have been converted to use the *-fontname form.
  36. ; The corresponding parameters have been replaced by an SF-FONT parameter.
  37. ; ************************************************************************
  38.  
  39.  
  40. (define (script-fu-labels-gimp-org text font font-size text-color shadow-color bg-color rm-bg index num-colors color-thresh yoff xoff height)
  41.   (let* ((img (car (gimp-image-new 125 height RGB)))
  42.      (text-layer (car (gimp-text-fontname img -1 xoff yoff text 0
  43.                      TRUE font-size PIXELS
  44.                      font)))
  45.      (bg-layer (car (gimp-layer-new  img 125 height
  46.                      RGB_IMAGE "Background" 100 NORMAL)))
  47.      (shadow-layer (car (gimp-layer-copy text-layer TRUE)))
  48.      (old-fg (car (gimp-palette-get-foreground)))
  49.      (old-bg (car (gimp-palette-get-background))))
  50.     
  51.     (gimp-image-undo-disable img)
  52.     (gimp-image-add-layer img shadow-layer 1)
  53.     (gimp-image-add-layer img bg-layer 2)
  54.     
  55.     (gimp-layer-set-preserve-trans text-layer TRUE)
  56.     (gimp-layer-set-preserve-trans shadow-layer TRUE)
  57.     
  58.     (gimp-palette-set-background text-color)
  59.     (gimp-edit-fill text-layer BG-IMAGE-FILL)
  60.  
  61.     (gimp-palette-set-background bg-color)
  62.     (gimp-edit-fill bg-layer BG-IMAGE-FILL)
  63.  
  64.     (gimp-palette-set-background shadow-color)
  65.     (gimp-edit-fill shadow-layer BG-IMAGE-FILL)
  66.     (gimp-layer-translate shadow-layer 1 1)
  67.  
  68.     (set! text-layer (car (gimp-image-flatten img)))
  69.     (gimp-layer-add-alpha text-layer)
  70.  
  71.     (if (= rm-bg TRUE)
  72.     (begin
  73.       (gimp-by-color-select text-layer bg-color
  74.                 color-thresh REPLACE TRUE FALSE 0 FALSE)
  75.       (gimp-edit-clear text-layer)
  76.       (gimp-selection-clear img)))
  77.     
  78.     (if (= index TRUE)
  79.        (gimp-convert-indexed img FS-DITHER MAKE-PALETTE num-colors FALSE FALSE ""))
  80.  
  81.     (gimp-palette-set-foreground old-fg)
  82.     (gimp-palette-set-background old-bg)
  83.     (gimp-image-undo-enable img)
  84.     (gimp-display-new img)))
  85.  
  86.  
  87. ;;;(define (script-fu-tube-button-label-gimp-org text rm-bg index)
  88. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 14 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 8 0 30))
  89. ;;;
  90. ;;;(define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  91. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 12 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 7 0 24))
  92. ;;;  
  93. ;;;(define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  94. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 10 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 6 0 18))
  95. ;;;
  96.  
  97. (define (script-fu-tube-button-label-gimp-org text rm-bg index)
  98.   (script-fu-labels-gimp-org text "-*-helvetica-*-r-*-*-24-*-*-*-p-*-*-*" 14 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 8 0 30))
  99.  
  100. (define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  101.   (script-fu-labels-gimp-org text "-*-helvetica-*-r-*-*-24-*-*-*-p-*-*-*" 12 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 7 10 24))
  102.   
  103. (define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  104.   (script-fu-labels-gimp-org text "-*-helvetica-*-r-*-*-24-*-*-*-p-*-*-*" 10 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 6 20 18))
  105.  
  106.  
  107. (script-fu-register "script-fu-tube-button-label-gimp-org"
  108.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Gimp.Org/Tube Button Label..."
  109.             "Tube Button Label Header for gimp.org"
  110.             "Adrian Likins & Jens Lautenbacher"
  111.             "Adrian Likins & Jens Lautenbacher"
  112.             "1997"
  113.             ""
  114.             SF-STRING _"Text" "?"
  115.             SF-TOGGLE _"Remove Background" TRUE
  116.             SF-TOGGLE _"Index Image" TRUE)
  117.  
  118. (script-fu-register "script-fu-tube-subbutton-label-gimp-org"
  119.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Gimp.Org/Tube Sub-Button Label..."
  120.             "Tube Button Label Header for gimp.org"
  121.             "Adrian Likins & Jens Lautenbacher"
  122.             "Adrian Likins & Jens Lautenbacher"
  123.             "1997"
  124.             ""
  125.             SF-STRING _"Text" "?"
  126.             SF-TOGGLE _"Remove Background" TRUE
  127.             SF-TOGGLE _"Index Image" TRUE)
  128.  
  129. (script-fu-register "script-fu-tube-subsubbutton-label-gimp-org"
  130.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Gimp.Org/Tube Sub-Sub-Button Label..."
  131.             "Tube Button Label Header for gimp.org"
  132.             "Adrian Likins & Jens Lautenbacher"
  133.             "Adrian Likins & Jens Lautenbacher"
  134.             "1997"
  135.             ""
  136.             SF-STRING _"Text" "?"
  137.             SF-TOGGLE _"Remove Background" TRUE
  138.             SF-TOGGLE _"Index Image" TRUE)
  139.  
  140.  
  141. (script-fu-register "script-fu-labels-gimp-org"
  142.             _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Gimp.Org/General Tube Labels..."
  143.             "Tube Button Label Header for gimp.org"
  144.             "Adrian Likins & Jens Lautenbacher"
  145.             "Adrian Likins & Jens Lautenbacher"
  146.             "1997"
  147.             ""
  148.             SF-STRING _"Text" "Gimp.Org"
  149.             SF-FONT   _"Font" "-*-helvetica-*-r-*-*-24-*-*-*-p-*-*-*"
  150.             SF-ADJUSTMENT _"Font Size (pixels)" '(18 2 1000 1 10 0 1)
  151.              SF-COLOR  _"Text Color" '(130 165 235)
  152.              SF-COLOR  _"Shadow Color" '(0 0 0)
  153.             SF-COLOR  _"Background Color" '(255 255 255)
  154.             SF-TOGGLE _"Remove Background" TRUE
  155.             SF-TOGGLE _"Index Image" TRUE
  156.             SF-ADJUSTMENT _"Number of Colors" '(15 2 255 1 10 0 1)
  157.             SF-ADJUSTMENT _"Select-By-Color Threshold" '(1 1 256 1 10 0 1)
  158.             SF-ADJUSTMENT _"Offset X" '(8 0 50 1 10 0 1)
  159.             SF-ADJUSTMENT _"Offset Y" '(0 0 50 1 10 0 1)
  160.             SF-ADJUSTMENT _"Height"   '(30 2 1000 1 10 0 1))
  161.